home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / waveplay / waveplay.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-08-24  |  9.7 KB  |  298 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Jeff's Wave Playing Experiment"
  5.    ClientHeight    =   4545
  6.    ClientLeft      =   1140
  7.    ClientTop       =   1515
  8.    ClientWidth     =   4365
  9.    Height          =   4950
  10.    Icon            =   "WAVEPLAY.frx":0000
  11.    Left            =   1080
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   4545
  16.    ScaleWidth      =   4365
  17.    Top             =   1170
  18.    Width           =   4485
  19.    Begin VB.CommandButton Command11 
  20.       Caption         =   "&Quit"
  21.       BeginProperty Font 
  22.          name            =   "MS Sans Serif"
  23.          charset         =   1
  24.          weight          =   700
  25.          size            =   8.25
  26.          underline       =   0   'False
  27.          italic          =   0   'False
  28.          strikethrough   =   0   'False
  29.       EndProperty
  30.       Height          =   495
  31.       Left            =   1080
  32.       TabIndex        =   10
  33.       Top             =   3960
  34.       Width           =   1935
  35.    End
  36.    Begin VB.CommandButton Command10 
  37.       Caption         =   "Elvis' &Favorite Saying"
  38.       BeginProperty Font 
  39.          name            =   "MS Sans Serif"
  40.          charset         =   1
  41.          weight          =   700
  42.          size            =   8.25
  43.          underline       =   0   'False
  44.          italic          =   0   'False
  45.          strikethrough   =   0   'False
  46.       EndProperty
  47.       Height          =   495
  48.       Left            =   2160
  49.       TabIndex        =   8
  50.       Top             =   2640
  51.       Width           =   2055
  52.    End
  53.    Begin VB.CommandButton Command9 
  54.       Caption         =   "Clin&t's Big Question?"
  55.       BeginProperty Font 
  56.          name            =   "MS Sans Serif"
  57.          charset         =   1
  58.          weight          =   700
  59.          size            =   8.25
  60.          underline       =   0   'False
  61.          italic          =   0   'False
  62.          strikethrough   =   0   'False
  63.       EndProperty
  64.       Height          =   495
  65.       Left            =   2160
  66.       TabIndex        =   7
  67.       Top             =   2040
  68.       Width           =   2055
  69.    End
  70.    Begin VB.CommandButton Command8 
  71.       Caption         =   "&Good Help?"
  72.       BeginProperty Font 
  73.          name            =   "MS Sans Serif"
  74.          charset         =   1
  75.          weight          =   700
  76.          size            =   8.25
  77.          underline       =   0   'False
  78.          italic          =   0   'False
  79.          strikethrough   =   0   'False
  80.       EndProperty
  81.       Height          =   495
  82.       Left            =   2160
  83.       TabIndex        =   6
  84.       Top             =   1440
  85.       Width           =   2055
  86.    End
  87.    Begin VB.CommandButton Command7 
  88.       Caption         =   "&What was That?"
  89.       BeginProperty Font 
  90.          name            =   "MS Sans Serif"
  91.          charset         =   1
  92.          weight          =   700
  93.          size            =   8.25
  94.          underline       =   0   'False
  95.          italic          =   0   'False
  96.          strikethrough   =   0   'False
  97.       EndProperty
  98.       Height          =   495
  99.       Left            =   2160
  100.       TabIndex        =   5
  101.       Top             =   840
  102.       Width           =   2055
  103.    End
  104.    Begin VB.CommandButton Command6 
  105.       Caption         =   "C&lint's Intro!"
  106.       BeginProperty Font 
  107.          name            =   "MS Sans Serif"
  108.          charset         =   1
  109.          weight          =   700
  110.          size            =   8.25
  111.          underline       =   0   'False
  112.          italic          =   0   'False
  113.          strikethrough   =   0   'False
  114.       EndProperty
  115.       Height          =   495
  116.       Left            =   120
  117.       TabIndex        =   4
  118.       Top             =   3240
  119.       Width           =   1815
  120.    End
  121.    Begin VB.CommandButton Command5 
  122.       Caption         =   "&Clint's Challenge"
  123.       BeginProperty Font 
  124.          name            =   "MS Sans Serif"
  125.          charset         =   1
  126.          weight          =   700
  127.          size            =   8.25
  128.          underline       =   0   'False
  129.          italic          =   0   'False
  130.          strikethrough   =   0   'False
  131.       EndProperty
  132.       Height          =   495
  133.       Left            =   120
  134.       TabIndex        =   3
  135.       Top             =   2640
  136.       Width           =   1815
  137.    End
  138.    Begin VB.CommandButton Command4 
  139.       Caption         =   "&Barney Fife's File"
  140.       BeginProperty Font 
  141.          name            =   "MS Sans Serif"
  142.          charset         =   1
  143.          weight          =   700
  144.          size            =   8.25
  145.          underline       =   0   'False
  146.          italic          =   0   'False
  147.          strikethrough   =   0   'False
  148.       EndProperty
  149.       Height          =   495
  150.       Left            =   120
  151.       TabIndex        =   1
  152.       Top             =   1440
  153.       Width           =   1815
  154.    End
  155.    Begin VB.CommandButton Command3 
  156.       Caption         =   "&Missing Cursor"
  157.       BeginProperty Font 
  158.          name            =   "MS Sans Serif"
  159.          charset         =   1
  160.          weight          =   700
  161.          size            =   8.25
  162.          underline       =   0   'False
  163.          italic          =   0   'False
  164.          strikethrough   =   0   'False
  165.       EndProperty
  166.       Height          =   495
  167.       Left            =   120
  168.       TabIndex        =   2
  169.       Top             =   2040
  170.       Width           =   1815
  171.    End
  172.    Begin VB.CommandButton Command2 
  173.       Caption         =   "Elvis' &Demise"
  174.       BeginProperty Font 
  175.          name            =   "MS Sans Serif"
  176.          charset         =   1
  177.          weight          =   700
  178.          size            =   8.25
  179.          underline       =   0   'False
  180.          italic          =   0   'False
  181.          strikethrough   =   0   'False
  182.       EndProperty
  183.       Height          =   495
  184.       Left            =   2160
  185.       TabIndex        =   9
  186.       Top             =   3240
  187.       Width           =   2055
  188.    End
  189.    Begin VB.CommandButton Command1 
  190.       Caption         =   "&I'm OK, Your OK"
  191.       BeginProperty Font 
  192.          name            =   "MS Sans Serif"
  193.          charset         =   1
  194.          weight          =   700
  195.          size            =   8.25
  196.          underline       =   0   'False
  197.          italic          =   0   'False
  198.          strikethrough   =   0   'False
  199.       EndProperty
  200.       Height          =   495
  201.       Left            =   120
  202.       TabIndex        =   0
  203.       Top             =   840
  204.       Width           =   1815
  205.    End
  206.    Begin VB.Label Label1 
  207.       Alignment       =   2  'Center
  208.       Caption         =   $"WAVEPLAY.frx":0442
  209.       ForeColor       =   &H00FF0000&
  210.       Height          =   615
  211.       Left            =   120
  212.       TabIndex        =   11
  213.       Top             =   120
  214.       Width           =   4095
  215.    End
  216. Attribute VB_Name = "Form1"
  217. Attribute VB_Creatable = False
  218. Attribute VB_Exposed = False
  219. 'Basic Wave Playing by J W Lehman
  220. Option Explicit
  221. Dim Soundname As String
  222. Dim wFlags As Integer
  223. Dim x As Integer
  224. Dim Location As String
  225. Private Sub Command1_Click()
  226.     Location = CurDir()
  227.     Soundname$ = "c:\VB\WAVEPLAY\OK.WAV" 'Location + "\" + "ok.wav"
  228.     wFlags% = SND_ASYNC Or SND_NODEFAULT
  229.     x% = sndPlaySound(Soundname$, wFlags%)
  230. End Sub
  231. Private Sub Command10_Click()
  232.     Location = CurDir()
  233.     Soundname$ = "c:\VB\WAVEPLAY\UHUH.WAV" 'Location + "\" + "ok.wav"
  234.     wFlags% = SND_ASYNC Or SND_NODEFAULT
  235.     x% = sndPlaySound(Soundname$, wFlags%)
  236. End Sub
  237. Private Sub Command11_Click()
  238.     Location = CurDir()
  239.     Soundname$ = "c:\VB\WAVEPLAY\gcrowd.WAV"
  240.     wFlags% = SND_ASYNC Or SND_NODEFAULT
  241.     x% = sndPlaySound(Soundname$, wFlags%)
  242. End Sub
  243. Private Sub Command2_Click()
  244.     Location = CurDir()
  245.     Soundname$ = "c:\VB\WAVEPLAY\DONUTS.WAV"
  246.     wFlags% = SND_ASYNC Or SND_NODEFAULT
  247.     x% = sndPlaySound(Soundname$, wFlags%)
  248. End Sub
  249. Private Sub Command3_Click()
  250.     Location = CurDir()
  251.     Soundname$ = "c:\VB\WAVEPLAY\FINDCURSOR.WAV"
  252.     wFlags% = SND_ASYNC Or SND_NODEFAULT
  253.     x% = sndPlaySound(Soundname$, wFlags%)
  254. End Sub
  255. Private Sub Command4_Click()
  256.     Location = CurDir()
  257.     Soundname$ = "c:\VB\WAVEPLAY\FINDFILE.WAV"
  258.     wFlags% = SND_ASYNC Or SND_NODEFAULT
  259.     x% = sndPlaySound(Soundname$, wFlags%)
  260. End Sub
  261. Private Sub Command5_Click()
  262.     Location = CurDir()
  263.     Soundname$ = "c:\VB\WAVEPLAY\IKNOW.WAV"
  264.     wFlags% = SND_ASYNC Or SND_NODEFAULT
  265.     x% = sndPlaySound(Soundname$, wFlags%)
  266. End Sub
  267. Private Sub Command6_Click()
  268.     Location = CurDir()
  269.     Soundname$ = "c:\VB\WAVEPLAY\IWANT.WAV"
  270.     wFlags% = SND_ASYNC Or SND_NODEFAULT
  271.     x% = sndPlaySound(Soundname$, wFlags%)
  272. End Sub
  273. Private Sub Command7_Click()
  274.     Location = CurDir()
  275.     Soundname$ = "c:\VB\WAVEPLAY\OHMY.WAV" 'Location + "\" + "ok.wav"
  276.     wFlags% = SND_ASYNC Or SND_NODEFAULT
  277.     x% = sndPlaySound(Soundname$, wFlags%)
  278. End Sub
  279. Private Sub Command8_Click()
  280.     Location = CurDir()
  281.     Soundname$ = "c:\VB\WAVEPLAY\OPENHELP.WAV" 'Location + "\" + "ok.wav"
  282.     wFlags% = SND_ASYNC Or SND_NODEFAULT
  283.     x% = sndPlaySound(Soundname$, wFlags%)
  284. End Sub
  285. Private Sub Command9_Click()
  286.     Location = CurDir()
  287.     Soundname$ = "c:\VB\WAVEPLAY\SEEHOW.WAV" 'Location + "\" + "ok.wav"
  288.     wFlags% = SND_ASYNC Or SND_NODEFAULT
  289.     x% = sndPlaySound(Soundname$, wFlags%)
  290. End Sub
  291. Private Sub Form_Load()
  292.     Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
  293.     Location = CurDir()
  294.     Soundname$ = "c:\VB\WAVEPLAY\START.WAV"
  295.     wFlags% = SND_ASYNC Or SND_NODEFAULT
  296.     x% = sndPlaySound(Soundname$, wFlags%)
  297. End Sub
  298.